home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_##_(07-1985).d64 / sound shaper-vic (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  45 lines
  1. 10 REM *** SOUND SHAPER ***
  2. 20 REM *** FROM COMPUTE!, MAR 1984 ***
  3. 40 PRINT"[147]"TAB(2)"SHAPING[146] VIC[146] SOUNDS[146]"
  4. 45 FOR T=1 TO 1500:NEXT
  5. 50 PRINT"[147]"TAB(7)"S[146]HAPED"
  6. 55 PRINT TAB(9);"OR":PRINT TAB(8)"E[146]CHO"
  7. 60 POKE198,0:WAIT198,1:GETA$:IF A$<>"S" AND A$<>"E" THEN 50
  8. 70 ON -(A$="S")-2*(A$="E") GOTO 100,240
  9. 100 REM *** THIS PART PRODUCES "SHAPED" MUSICAL NOTES ***
  10. 110 PRINT"RISE AND FALL TIME"
  11. 115 PRINT"(VALUES MUST EXCEED 0)"
  12. 116 INPUT"R,F";R,D:IF (R=0) OR (D=0) THEN 116
  13. 120 V=36878
  14. 122 PRINT"VOICE (1,2,3, OR 4)"
  15. 124 INPUT S:IF S<1 OR S>4 THEN 122
  16. 126 S=S+36873
  17. 130 FOR F=128 TO 255 STEP 3
  18. 140 POKE S,F
  19. 150 FOR DB=0 TO 15 STEP 5/R
  20. 160 POKE V,DB
  21. 170 NEXT
  22. 180 FOR DB=15 TO 0 STEP -5/D
  23. 190 POKE V,DB
  24. 200 NEXT
  25. 210 FOR T=1 TO 50:NEXT
  26. 220 NEXT
  27. 230 POKE V,0:POKES,0:GOTO 400
  28. 240 REM *** THIS PART CREATES AN ECHO EFFECT ***
  29. 250 V=36878
  30. 252 PRINT"VOICE (1,2,3, OR 4)"
  31. 254 INPUT S:IF S<1 OR S>4 THEN 122
  32. 256 S=S+36873
  33. 260 FOR P=128 TO 255 STEP 3
  34. 270 FOR DB=15 TO 1 STEP -.5
  35. 280 POKE V,DB:POKE S,P
  36. 290 FOR T=1 TO 10:NEXT
  37. 300 POKE S,383-P
  38. 310 FOR J=1 TO 10:NEXT
  39. 320 NEXT:NEXT
  40. 330 POKE V,0:POKE S,0
  41. 400 PRINT"[147]AGAIN?[160](Y/N)"
  42. 410 POKE 198,0:WAIT 198,1:GET A$:IF A$<>"N" THEN 50
  43. 420 PRINT"[147]RASPBERRY!!!"
  44. 430 POKE V,15:POKE 36877,140:FORI=1TO1000:NEXT:POKE V,0:POKE36877,0
  45.